home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-3.sda / LEVELER 1.20A (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  137 lines
  1. 10 REMOPEN1,8,15,"S0:LEVELER*":CLOSE1:SAVE"LEVELER 1.20",8
  2. 20 REM ::::::::::::::::::::::::::::::
  3. 30 REM"::        [206][197][212][215][207][210][203] 64        ::
  4. 40 [143]"::   LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1987, 1988   ::
  5. 50 REM"::       [194][217] [211][193][205] [204][197][215][201][212]       ::
  6. 60 [143] ::::::::::::::::::::::::::::::
  7. 70 TX$[178]"":[129]I[178]1[164]255:TX$[178]TX$[170]"SQR":[130]
  8. 80 [129]I[178]896[164]937:[135]A:[151]I,A:[130]
  9. 90 NU$[178][199](0):CR$[178][199](13):C2$[178]CR$[170]CR$
  10. 100 [151]53280,0:[151]53281,0:[153]"LOAD"[163]15)"(null)EVELER
  11. 110 PRINTTAB(15)"[183][183][183][183][183][183][183][183]
  12. 120 [153]"SYS(null)HIS PROGRAM IS DESIGNED TO VERIFY YOUR
  13. 130 PRINT"LEVELS IN YOUR NODE ACCOUNTS FILE.
  14. 140 [153]"(null)OU WILL NEED TO SPECIFY YOUR PEEKPEEK(null) PARMS
  15. 150 PRINT"DRIVE, AND YOUR NETWORK SYSTEMS DRIVE.
  16. 160 [153]"(null)INCE AUTOREPLY LEVELS DETERMINE WHICH
  17. 170 PRINT"NODE GETS THE REPLY, THIS PROGRAM WILL
  18. 180 [153]"VERIFY THAT ALL YOUR LEVELS ARE IN
  19. 190 PRINT"PROPER ORDER.
  20. 200 [153]CR$"CONTPEEKPEEK(null) (null)ARMS FILE ON DEVICE:
  21. 210 PRINTCR$"[196]EVICE (8-15)";:INPUT"   8[157][157][157]";PV:IFPV<8ORPV>15THEN210
  22. 220 PRINT"[196]RIVE (0-10)";:INPUT"   0[157][157][157]";PR$
  23. 230 PR$=PR$+":"
  24. 240 PRINT"[201]NIT";:INPUT"   I0[157][157][157][157]";P1$
  25. 250 PRINTCR$"[154][206]ETWORK SYSTEMS IS DEVICE:
  26. 260 [153]CR$"STR$EVICE (8-15)";:[133]"   8CMDCMDCMD";NV:[139]NV[179]8[176]NV[177]15[167]210
  27. 270 [153]"STR$RIVE (0-10)";:[133]"   0CMDCMDCMD";NR$
  28. 280 NR$[178]NR$[170]":"
  29. 290 [153]"RIGHT$NIT";:[133]"   I0CMDCMDCMDCMD";N1$
  30. 300 [160]15:[159]15,PV,15,P1$
  31. 310 [159]8,PV,8,PR$[170]"SQRNTWRK.PARMS":[141]410:[139]ER[167][160]8:[137]100
  32. 320 [132]8,NN%:[153]C2$"(null)OU HAVE"NN%"(null)(null)(null)CHR$(null)RIGHT$(null)CHR$ NODES SET UP.":[160]8
  33. 330 [134]A$(NN%):[160]15:[159]15,NV,15,N1$
  34. 340 [159]8,NV,8,NR$[170]"SQRNODE LIST":[141]410:[139]ER[167][160]8:[137]100
  35. 350 [153]C2$"(null)OADING (null)(null)STR$VAL (null)RIGHT$(null)(null)...";
  36. 360 [129]I[178]1[164]NN%:[158]896:A$[178][200](TX$,25):[158]896:[153]".";
  37. 370 [139][201](A$,1)[178]" "[167]A$[178][200](A$,[195](A$)[171]1):[137]370
  38. 380 A$(I)[178]A$:[130]:[160]8:[153]
  39. 390 [159]8,NV,8,NR$[170]"SQRNODE ACCOUNTS":[141]410:[139]ER[167][160]8:[137]100
  40. 400 [137]480
  41. 410 [132]15,ER,ER$,T,S:[142]
  42. 420 [152]15,"P"[199](RN[171]256[172][181](RN[173]256))[199](RN[173]256)[199](II):[142]
  43. 430 [152]15,"P"NU$"":[142]
  44. 440 [131] 160,2,177,45,153,137,0,200,192,6
  45. 450 [131] 208,246,162,8,32,198,255
  46. 460 [131] 32,228,255,201,13,240,15,164,142,145
  47. 470 [131] 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
  48. 480 [141]430:[132]8,J:[153]"(null)OU HAVE"J"RIGHT$(null)LEN(null)(null)RIGHT$(null)CHR$ NODES ON FILE
  49. 490 DIMX$(J),X%(J)
  50. 500 PRINTC2$"[204]OADING ENTIRE ACCOUNT FILE..WAIT..";
  51. 510 FORRN=2TOJ:II=1:GOSUB420:SYS896:A$=LEFT$(TX$,PEEK(142))
  52. 520 IFA$="[186][196][197][204][197][212][197][196][186]"THEN540
  53. 530 X$(RN)=A$:II=38:GOSUB420:SYS896:X%(RN)=VAL(LEFT$(TX$,PEEK(142)))
  54. 540 PRINT".";:NEXT:CLOSE8
  55. 550 PRINTC2$"[154][200][207][205][197][146] KEY PAUSES, [211][208][193][195][197][146] BAR ABORTS
  56. 560 [153]"ATNCCT# REFERS TO THE (null)VALLEN(null)(null)STR$ NUMBER AS
  57. 570 PRINT"FOUND IN YOUR NODE ACCOUNTS FILE.
  58. 580 [153]"OPEN(null)ATN(null)VAL REFERS TO THE NODE NAME AS IT IS
  59. 590 PRINT"LISTED IN THE NODE ACCOUNT FILE"
  60. 600 PRINT"[150][204][201][206][203][197][196] [212][207] MEANS THAT [201][198] A REPLYABLE
  61. 610 [153]"LEVEL WAS GIVEN, THIS IS THE NAME OF
  62. 620 PRINT"THE NODE WHICH REPLIES WILL GO TO.
  63. 630 [153]"RIGHT$F THE (null)ATN(null)VAL AND (null)RIGHT$(null)(null)VALSTR$ (null)(null) DOES NOT
  64. 640 PRINT"MATCH, YOU'LL NEED TO ADJUST THE LEVEL
  65. 650 [153]"AS PER THE (null)ETWORK DOCS OR THE HELP
  66. 660 PRINT"FILE AVAILABLE AFTER THE LISTING.
  67. 665 [153]"SYSVALNTER (S)CREEN OR (P)RINTER OUTPUT";:[133]A$
  68. 670 [160]4:[159]4,3:[139]A$[178]"P"[167][160]4:[159]4,4,7
  69. 675 [153]"LEFT$IT YOUR LEFT$(null)(null)VAL KEY TO SEE LIST":[141]770:[153]
  70. 680 [129]I[178]2[164]J:[161]A$:[139]A$[178]" "[167]I[178]J:[153]"^P":[137]760
  71. 690 [139]A$[178]""[167][141]770
  72. 700 [152]4,"ATNCCT#"I"SYS(null)ATN(null)VAL:";:[139]X$(I)[178]""[167][152]4,"CLRSTR$VAL(null)VAL(null)VALSTR$":[152]4:[137]760
  73. 710 [152]4,X$(I)
  74. 720 [152]4,"CLR(null)RIGHT$(null)(null)VALSTR$ (null)(null)   :";:[139]X%(I)[178]0[167][152]4,"OPEN(null)(null)(null)ATN(null)RIGHT$STR$ATN(null)VALSTR$":[137]760
  75. 730 [139]X%(I)[178]1[167][152]4,"OPEN(null)(null) (null)VAL(null)(null)RIGHT$VAL(null) ATN(null)(null)(null)(null)VALSTR$":[137]760
  76. 740 [139]X%(I)[177]NN%[170]1[167][152]4,"DEF!!VAL(null)(null)(null)(null)!!":[137]760
  77. 750 [152]4,A$(X%(I)[171]1)
  78. 760 [152]4,"PRINT#=======================================":[130]:[137]790
  79. 770 [161]A$:[139]A$[178]""[167]770
  80. 780 [142]
  81. 790 [152]4
  82. 795 [153]CR$"((null))IST, (LEFT$)ELP, OR ((null))UIT? ";
  83. 800 [161]A$:[139]A$[179][177]"L"[175]A$[179][177]"H"[175]A$[179][177]"Q"[167]800
  84. 810 [139]A$[178]"L"[167][153]"(null)IST":[137]550
  85. 815 [139]A$[178]"H"[167][153]"LEFT$ELP":[137]830
  86. 820 [153]"(null)UIT":[160]4:[160]15:[128]
  87. 830 [153]"LOADRIGHT$F YOU SEE A DISCREPENCY BETWEEN THE
  88. 840 PRINT"[206][193][205][197], AND [204][201][206][203][197][196] [212][207], THE FIRST THING TO
  89. 850 [153]"DO, IS TO WRITE DOWN THE ATNCCT #. (null)HIS
  90. 860 PRINT"[193]CCT# IS THE RECORD NUMBER IN THE NODE
  91. 870 [153]"ACCOUNTS FILE.
  92. 880 PRINT"[150][201][205][208][207][210][212][193][206][212]![146] [212]HE [193]CCT # REGARDLESS OF
  93. 890 [153]"WHAT IT IS, HAS ABSOLUTELY (null)(null)(null)LEFT$RIGHT$(null)CHR$ TO
  94. 900 PRINT"DO WITH THE ACCESS LEVEL OR WITH
  95. 910 [153]"SETTING ACCESS LEVELS. (null)HEN YOU'RE
  96. 920 PRINT"SETTING A LEVEL, REMEMBER THAT THE
  97. 930 [153]"ATNCCT # HAS NOTHING TO DO WITH IT.
  98. 940 PRINT"[201]F YOU WANT TO SET UP A NODE AS
  99. 950 [153]"REPLYABLE, ASCRIGHT$(null)(null)(null) THING YOU DO, IS
  100. 960 PRINT"PRETEND YOU'RE GOING TO POST A NETWORK
  101. 970 [153]"MESSAGE. (null)HEN YOU GET TO THE FIRST
  102. 980 PRINT"PROMPT WHERE IT ASKS YOU FOR THE NODE
  103. 990 [153]"NUMBER, HIT '?' TO GET A LISTING.
  104. 995 PRINT"[200]IT ANY KEY[146]
  105. 996 [141]770
  106. 1000 [153]"LOAD(null)ET'S SAY ON THIS LISTING, (null)ERRAPIN
  107. 1010 PRINT"[212]RANSIT WAS NUMBER 8 ON THE LIST. [212]HIS
  108. 1020 [153]"NUMBER 8 IS THE (null)VAL(null) TO ACCESS LEVELS!
  109. 1030 PRINT"[206]OW GO BACK INTO THE NODE ACCOUNTS
  110. 1040 [153]"EDITOR. (null)OOK FOR (null)ERRAPIN (null)RANSIT
  111. 1050 PRINT"LISTED IN THE ACCOUNTS FILE. [201]F YOU
  112. 1060 [153]"WANT ANY MESSAGES COMING RIGHT$(null) FROM (null).(null).
  113. 1070 PRINT"TO BE REPLYABLE, YOU PUT IN A LEVEL OF
  114. 1080 [153]"NINE (9). (null)HY THE NUMBER 9 YOU ASK?
  115. 1090 PRINT"[194]ECAUSE, THERE ARE THREE BASIC ACCESS
  116. 1100 [153]"LEVELS... (null)NVALIDATED, (null)ALIDATED, BUT
  117. 1110 PRINT"NOT REPLYABLE,AND [210]EPLYABLE. [193]N
  118. 1120 [153]"(null)NVALIDATED LEVEL WILL ATN(null)(null)ATN(null)(null) BE 0. ATN
  119. 1130 PRINT"[214]ALIDATED BUT UNREPLYABLE LEVEL WILL
  120. 1140 [153]"ATN(null)(null)ATN(null)(null) BE 1. ATN (null)ALIDATED LEVEL IS
  121. 1150 PRINT"[193][204][215][193][217][211] THE [206][207][196][197] [206][213][205][194][197][210] AS IT APPEARS
  122. 1160 [153]"ON THE LISTING WHEN YOU HIT THE '?',
  123. 1170 PRINT"[208][204][213][211] 1. [201]N THE ABOVE CASE, WE SAW
  124. 1180 [153]"THAT (null)ERRAPIN (null)RANSIT WAS NUMBER 8 ON
  125. 1190 PRINT"THE LIST. [215]E ADD 8 + 1 AND WE COME UP
  126. 1200 [153]"WITH 9. (null)HAT'S THE LEVEL WE WANT.
  127. 1205 PRINT"[200]IT ANY KEY[146]
  128. 1207 [141]770
  129. 1210 [153]"CONTRIGHT$ REALIZE THIS ISN'T EXACTLY THE
  130. 1220 PRINT"SMOOTHEST WAY TO DO IT, BUT WHEN [201] WAS
  131. 1230 [153]"DESIGNING THE NETWORK, RIGHT$ DIDN'T HAVE
  132. 1240 PRINT"THE FORESIGHT TO SEE THIS AS A PROBLEM.
  133. 1250 [153]"LENHANGING THE ENTIRE SETUP NOW WOULD
  134. 1260 PRINT"CREATE MORE PROBLEMS THAN SIMPLY
  135. 1270 [153]"TRYING TO EXPLAIN HOW THE CURRENT SETUP
  136. 1280 PRINT"WORKS.":GOTO795
  137.